www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\D_complie_all_zimodel_before.asp
<%
'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************
%>
<%
dir_set="../../"
%>
<!--#include file=../../inc/conn.asp-->
<!--#include file=../inc/checkadmin2.asp-->
<DIV id="loading_msg" style="position:absolute; z-index:200; top:180px; left:90px; background-color:#ffffff; width: 306px; height: 22px;" >
请稍后,即将加载标签列表......</div>
<!--#include file=../../inc/Functionb.asp-->
<script type="text/javascript" src="../../inc/zxml.js"></script>
<!--#include file=../../inc/ajaxLIB_no_loader.asp-->
<%
Server.ScriptTimeout=999999
session.timeout=600
' 检测组件变量
dim isobj,VerObj,TestObj
'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
on error resume next
IsObj=false
VerObj=""
set TestObj=server.CreateObject (strObj)
If -2147221005 <> Err then '感谢网友iAmFisher的宝贵建议
IsObj = True
VerObj = TestObj.version
if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
end if
set TestObj=nothing
End sub
ObjTest(fssoo_nd_var_str_x_customx)
if not isobj then
sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
</script>
<%
response.end
else
sss1="检测中:支持FSO， 请稍后,即将加载后台控件标签列表......"
%>
<script language="javascript">
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0);
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载自定义管理页的标签库标签列表中....</font>';",800);
var okeeee=0;
var needdo=1;
var w ;
var w2 ;
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!,请关闭所有占用数据库的软件如ACCESS,再重新进入本功能");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载自定义标签列表成功......"+"</font>';",1500);
okeeee=1;
sys_label_get();
}
}
a.async=true; //异步模式
a.load("../adminModelComponentLabel/D_ajax_update_custom_label_list_to_mdb_from_files.asp");
setTimeout("err_timeout();",45000);
function err_timeout(){
if (okeeee==0){
alert("你可能打开了数据库软件ACCESS等,请先关闭它,再刷新本页,或者数据库已锁定,无法进入后台!");
}
}
function sys_label_get(){
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>加载系统标签列表中....</font>';",800);
var a=AJAXcreateXMLdocument();
a.onreadystatechange=function(){
if (a.readyState==4)
{
if (a.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a.documentElement;
var staut=root.firstChild.text;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"加载系统标签列表成功......"+"</font>';",1500);
//循环延时，防止卡住:
w = setInterval("do_kernel()",40);
}
}
a.async=true; //异步模式
a.load("../adminModelComponentLabel/D_ajax_update_sys_label_list_to_mdb_from_files.asp");
}
var ended=0;
var ended2=0;
var pos="";
var msg1="";
var a2=AJAXcreateXMLdocument();
a2.onreadystatechange=function(){
if (a2.readyState==4)
{
if (a2.parseError.errorCode!=0){
alert("数据读取错误,请重试!!");
}
var root=a2.documentElement;
var ss1=root.firstChild.text;
var ss2=root.childNodes[1].text;
var ss3=root.childNodes[2].text;
if (ss1==1){ended=1;}
pos=ss2;
msg1=ss3;
needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在加载 "+msg1+"......"+"</font>';",1500);
if (ended==0){
}
else
{
self.location="D_complie_a_model.asp?modelid=<%=request("modelid")%>&callbackurl=<%=request("callbackurl")%>";
}
}
}
function do_kernel(){
if (needdo==1&&ended==0){
needdo=0;
a2.async=true; //异步模式
a2.load("../adminModelComponentLabel/D_ajax_update_label_to_mdb_from_files_by_step.asp?pos="+pos);
}
}
</script>
<%
end if
%>